home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 46
/
Mobiclic46.iso
/
pc
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00005_Script_gestion des équerres
< prev
next >
Wrap
Text File
|
2002-08-21
|
2KB
|
65 lines
-- gestion des Θquerres
global menusActifs, menuOuvert,pisteCoinHG, pisteCoinHD, pisteCoinBG, pisteCoinBD
global ouvreMenuHG,fermeMenuHG, menuFermeHG, pisteMenuHG
global ouvreMenuHD,fermeMenuHD, menuFermeHD, pisteMenuHD
global ouvreMenuBG,fermeMenuBG, menuFermeBG, pisteMenuBG
global ouvreMenuBD,fermeMenuBD, menuFermeBD, pisteMenuBD
on coinsOff
if menuOuvert<>0 then
menu = menuOuvert
-- fermeture du menu ouvert
case menu of
"HG": -- le menu Θquerre jaune est dΘroulΘ
validMHG=value(member("selectMenus0").line[1].word[1])
fermeMenuHG=1
repeat while menuFermeHG<>1
updateStage
end repeat
masquerPistes pisteMenuHG
"HD": -- le menu Θquerre verte est dΘroulΘ
validMHD=value(word 1 of line 2 of field "selectMenus0")
fermeMenuHD=1
repeat while menuFermeHD<>1
updateStage
end repeat
masquerPistes pisteMenuHD
"BG": -- le menu Θquerre bleue est dΘroulΘ
validMBG=value(word 1 of line 3 of field "selectMenus0")
fermeMenuBG=1
repeat while menuFermeBG<>1
updateStage
end repeat
masquerPistes pisteMenuBG
"BD": -- le menu Θquerre rouge est dΘroulΘ
validMBD=value(word 1 of line 4 of field "selectMenus0")
fermeMenuBD=1 -- commande la fermeture du menu
repeat while menuFermeBD<>1
updateStage
end repeat
masquerPistes pisteMenuBD
end case
menuOuvert = 0
updateStage
end if
-- dΘsactivation des Θquerres
spritesOn pisteCoinHG, pisteCoinHD, pisteCoinBG, pisteCoinBD
sprite(pisteCoinHG).memberNum = member("coinHG0").number
sprite(pisteCoinBG).memberNum = member("coinBG0").number
sprite(pisteCoinHD).memberNum = member("coinHD0").number
sprite(pisteCoinBD).memberNum = member("coinBD0").number
menusActifs=0
end
on coinsOn
sprite(pisteCoinHG).memberNum = member("coinHG").number
sprite(pisteCoinBG).memberNum = member("coinBG").number
sprite(pisteCoinHD).memberNum = member("coinHD").number
sprite(pisteCoinBD).memberNum = member("coinBD").number
razMenus
menusActifs=1
end